Міністерство освіти і науки України
Національний університет “Львівська політехніка”
Кафедра ПЗ
Звіт
з лабораторної роботи №1
На тему: Візуалізація статичних двовимірних зображень за допомогою однієї з відомих мов програмування.
з дисципліни “ Комп’ютерна графіка ”
Тема роботи: Візуалізація статичних двовимірних зображень за допомогою однієї з відомих мов програмування.
Мета роботи: Вивчити графічні функції середовища програмування та навчитися самостійно працювати з help -системою середовища
Теоретичні відомості
Клас TCanvas. Цей клас створює «канву», на якій можна малювати інструментами – пером, пензлем і шрифтом. Об’єкти класу TCanvas автоматично створюються для всіх видимих компонентів, які повнні вміти малювати себе. Вони інкапсулюють об’єкти Font, Pen, Brush, а також багато чисельні методи, використовуючи дані об’єкти.
Під час написання даної лабораторної роботи я використав такі методи класу TCanvas :
Arc(X1,Y1,X2,Y2,X3,Y3,X4,Y4: integer) – креслить дугу що розміщується в прямокутнику (X1,Y1) – (X2,Y2). Початок дуги лежить на перетині еліпса і променя проведеного з його центру в точку (X3,Y3), а кінець – на перетині з променем з центра в точку (X4,Y4). Дуга креслиться против годинникової стрілки.
Rectangle(X1,Y1,X2,Y2:integer) – малює і заповнює прямокутник (X1,Y1) – (X2,Y2).
Клас TPen. За допомогою класа TPen створюється об’єкт перо що служить для малювання ліній. З нього явикористав:
Color: TColor – задає колір накреслених пером ліній.
Style: TPenStyle – задає стиль ліній , що мають ширину лінії 1 піксель.
Width: integer – для задання ширини лінії в пікселях.
Завдання
Скласти програму викреслювання дуг еліпса відповідним стилем, товщиною і кольором. Стиль, товщина та колір вибираються користувачем з переліку запропонованих програмою.
Текст програми
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TElipseDyg *ElipseDyg;
//---------------------------------------------------------------------------
__fastcall TElipseDyg::TElipseDyg(TComponent* Owner)
: TForm(Owner)
{
}
int nCol, nStl;
//---------------------------------------------------------------------------
void __fastcall TElipseDyg::ButtonImageClick(TObject *Sender)
{
Randomize;
ImagePol->Canvas->Rectangle(0,0,425,369);
nCol=StrToInt(ComboBoxColor->Text);
switch(nCol)
{
case 1:ImagePol->Canvas->Pen->Color=clYellow;break;
case 2:ImagePol->Canvas->Pen->Color=clRed;break;
case 3:ImagePol->Canvas->Pen->Color=clLime;break;
case 4:ImagePol->Canvas->Pen->Color=clBlue;break;
}
ImagePol->Canvas->Pen->Width=StrToInt(EditWidth->Text);
nStl=StrToInt(ComboBoxStyle->Text);
switch(nStl)
{
case 1:ImagePol->Canvas->Pen->Style=psSolid;break;
case 2:ImagePol->Canvas->Pen->Style=psDash;break;
case 3:ImagePol->Canvas->Pen->Style=psDot;break;
case 4:ImagePol->Canvas->Pen->Style=psDashDot;break;
}
ImagePol->Canvas->Arc(10,10,random(100),random(100),45,10,45,100);
ImagePol->Canvas->Arc(25,155,random(250),random(255),150,105,150,205);
ImagePol->Canvas->Arc(50,10,random(250),random(100),15,100,14,10);
}
Результат роботи програми
Висновок: під час виконання лабораторної роботи я вивчив графічні функції середовища програмування та навчився самостійно працювати з help -системою середовища
